home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / tech 4.1 editorial Archive.sit / Iovine / life (.txt) < prev   
AmigaBASIC Source Code  |  1993-06-18  |  1KB  |  39 lines
  1. REM John Iovine
  2.  REM Game of Life
  3.  DIM OL(24,70), NE(24,70) : GN = 0
  4.  CLS
  5.  GOSUB  Start ' input pattern
  6.  display:
  7.  LOCATE 1,1 : REM PRINT CHR$(11);
  8.  FOR I = 1 TO 22: FOR C = 1 TO 69
  9.  IF NE(I,C) = 0 THEN PRINT CHR$(32);::ELSE PRINT CHR$(31);
  10.  OL(I,C) = NE(I,C)
  11.  NEXT C: PRINT: NEXT I
  12.  PRINT "Generation"; GN; : GN = GN + 1
  13.  FOR I = 1 TO 22 : FOR C = 1 TO 69
  14.  N = 0 : CN = OL(I,C)
  15.  IF OL(I-1,C-1)  = 1 THEN N = N + 1
  16.  IF OL(I-1,C)    = 1 THEN N = N + 1
  17.  IF OL(I-1,C+1)  = 1 THEN N = N + 1
  18.  IF OL(I,C-1)    = 1 THEN N = N + 1
  19.  IF OL(I,C+1)    = 1 THEN N = N + 1
  20.  IF OL(I+1,C-1)  = 1 THEN N = N + 1
  21.  IF OL(I+1,C)    = 1 THEN N = N + 1
  22.  IF OL(I+1,C+1)  = 1 THEN N = N + 1
  23.  IF N < 2 THEN NE(I,C) = 0
  24.  IF N = 3 THEN NE(I,C) = 1
  25.  IF N = 4 THEN NE(I,C) = 0
  26.  IF N > 4 THEN NE(I,C) = 0
  27.  NEXT C: NEXT I
  28.  GOTO display: REM return to display
  29.  Start: 
  30. REM  Enter Starting Pattern
  31.  NE(12,31) = 1
  32.  NE(12,32) = 1
  33.  NE(12,33) = 1
  34.  NE(13,30) = 1
  35.  NE(13,33) = 1
  36.  NE(14,29) = 1
  37.  NE(14,33) = 1
  38.  RETURN
  39.